Precision Software Appli…tions Silver Collection 4/Precision Software Applications Silver Collection Volume 4 (1993).iso/database/videomgt.exe/ADDSALES.PRG

Text File | 1991-11-23 | 675b | 30 lines

&& ADD RECORDS TO YSALES FILE ===> ADDSALES.PRG
SET TALK OFF
ANS=" "
USE YSALES
DO WHILE .T.
   CLEAR
   APPEND BLANK
   @ 3,22 SAY "ADD RECORD IN YSALES FILE"
   @ 5,15 TO 15,56
   @ 7,22 SAY "CUSTOMER NUMBER "  GET CUST_NO
   @ 9,22 SAY "DATE            "  GET DATE
   @ 11,22 SAY "FILM NUMBER     "  GET FILM_NO
   @ 13,22 SAY "RETURNED        "  GET RETURNED
   @ 24,15 SAY "PLEASE ENTER ALL THE FIELDS OF RECORD ADDED"
   READ
   ANOS=ANOS+1
   CLEAR
   @ 12,10
   WAIT "                      DO YOU WANT TO CONTINUE(Y/N)? " TO ANS
   IF ANS $"Yy"
      CLEAR
      LOOP
   ELSE
      EXIT
   ENDIF
ENDDO
CLEAR
@10,36 SAY "W A I T"
RETURN